From 76c077475339ccfa407e76190f589c350e2a93da Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Mon, 18 Oct 1993 07:54:49 +0000 Subject: [PATCH] (list-tags): Fix completing-read call interactive spec; TABLE and PREDICATE args were reversed, and more processing was needed on tags-table-files. --- lisp/progmodes/etags.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 93fa039c505..2271614fd94 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1249,8 +1249,11 @@ See documentation of variable `tags-file-name'." "Display list of tags in file FILE. FILE should not contain a directory specification unless it has one in the tags table." - (interactive (list (completing-read "List tags in file: " nil - 'tags-table-files t nil))) + (interactive (list (completing-read "List tags in file: " + (save-excursion + (visit-tags-table-buffer) + (mapcar 'list (tags-table-files))) + nil t nil))) (with-output-to-temp-buffer "*Tags List*" (princ "Tags in file ") (princ file) -- 2.30.2